home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / actmenu / frmmain.frm < prev    next >
Text File  |  1999-08-29  |  11KB  |  322 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Object = "{D26704A2-5E4B-11D3-83BB-AAAE6646E101}#1.0#0"; "ACTIVEMENUHELP.OCX"
  4. Begin VB.MDIForm frmMain 
  5.    BackColor       =   &H8000000C&
  6.    Caption         =   "MenuHelpDemo"
  7.    ClientHeight    =   3195
  8.    ClientLeft      =   165
  9.    ClientTop       =   735
  10.    ClientWidth     =   4680
  11.    LinkTopic       =   "MDIForm1"
  12.    StartUpPosition =   3  'Windows Default
  13.    WindowState     =   2  'Maximized
  14.    Begin MSComctlLib.StatusBar sbStatusBar 
  15.       Align           =   2  'Align Bottom
  16.       Height          =   270
  17.       Left            =   0
  18.       TabIndex        =   0
  19.       Top             =   2925
  20.       Width           =   4680
  21.       _ExtentX        =   8255
  22.       _ExtentY        =   476
  23.       _Version        =   393216
  24.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  25.          NumPanels       =   3
  26.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  27.             AutoSize        =   1
  28.             Object.Width           =   2619
  29.             Text            =   "Status"
  30.             TextSave        =   "Status"
  31.          EndProperty
  32.          BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  33.             Style           =   6
  34.             AutoSize        =   2
  35.             TextSave        =   "29-08-99"
  36.          EndProperty
  37.          BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  38.             Style           =   5
  39.             AutoSize        =   2
  40.             TextSave        =   "10:12 PM"
  41.          EndProperty
  42.       EndProperty
  43.    End
  44.    Begin ActiveMenuHelp.MenuHelp MenuHelp1 
  45.       Align           =   1  'Align Top
  46.       Height          =   480
  47.       Left            =   0
  48.       Top             =   0
  49.       Width           =   4680
  50.       _ExtentX        =   8255
  51.       _ExtentY        =   847
  52.       Menu2           =   "mnuFileNew"
  53.       Help2           =   "Creates a New File"
  54.       Menu3           =   "mnuFileOpen"
  55.       Help3           =   "Open an exsisting file."
  56.       Menu4           =   "mnuFileClose"
  57.       Help4           =   "Close a open file."
  58.       Menu6           =   "mnuFileSave"
  59.       Help6           =   "Save current file."
  60.       Menu7           =   "mnuFileSaveAs"
  61.       Help7           =   "Save current file with a new name."
  62.       Menu8           =   "mnuFileSaveAll"
  63.       Help8           =   "Save all open files."
  64.       Menu10          =   "mnuFileProperties"
  65.       Help10          =   "Display properties of a file"
  66.       Menu12          =   "mnuFilePageSetup"
  67.       Help12          =   "Displays Page set up dialog."
  68.       Menu13          =   "mnuFilePrintPreview"
  69.       Help13          =   "See Print Preview before printing."
  70.       Menu14          =   "mnuFilePrint"
  71.       Help14          =   "Print a file."
  72.       Menu16          =   "mnuFileSend"
  73.       Help16          =   "Send a email or fax."
  74.       Menu22          =   "mnuFileExit"
  75.       Help22          =   "Exit the application."
  76.       Menu24          =   "mnuEditUndo"
  77.       Help24          =   "Undo last change."
  78.       Menu26          =   "mnuEditCut"
  79.       Help26          =   "Cut data and copy to clipboard."
  80.       Menu27          =   "mnuEditCopy"
  81.       Help27          =   "Copy to clipboard."
  82.       Menu28          =   "mnuEditPaste"
  83.       Help28          =   "Paste data from clipboard."
  84.       Menu29          =   "mnuEditPasteSpecial"
  85.       Help29          =   "Paste sp."
  86.       Menu31          =   "mnuViewToolbar"
  87.       Help31          =   "Diaplay / hide toolbar"
  88.       Menu32          =   "mnuViewStatusBar"
  89.       Help32          =   "Diaplay / hide status bar."
  90.       Menu34          =   "mnuViewRefresh"
  91.       Help34          =   "refresh document."
  92.       Menu35          =   "mnuViewOptions"
  93.       Help35          =   "Diaplay options."
  94.       Menu36          =   "mnuViewWebBrowser"
  95.       Help36          =   "Diaplay web browser."
  96.       Menu38          =   "mnuToolsOptions"
  97.       Help38          =   "Diaplay tools options."
  98.       Menu40          =   "mnuWindowNewWindow"
  99.       Help40          =   "Create a new window of open document."
  100.       Menu42          =   "mnuWindowCascade"
  101.       Help42          =   "Cascade."
  102.       Menu43          =   "mnuWindowTileHorizontal"
  103.       Help43          =   "Tile Horz."
  104.       Menu44          =   "mnuWindowTileVertical"
  105.       Help44          =   "Tile Vert."
  106.       Menu45          =   "mnuWindowArrangeIcons"
  107.       Help45          =   "Arrange icons of minimised docs."
  108.       Menu47          =   "mnuHelpContents"
  109.       Help47          =   "Diaplay help contents."
  110.       Menu48          =   "mnuHelpSearchForHelpOn"
  111.       Help48          =   "Search help on key."
  112.       Menu50          =   "mnuHelpAbout"
  113.       Help50          =   "About."
  114.       Menu51          =   "Menu~!@#$%End"
  115.    End
  116.    Begin VB.Menu mnuFile 
  117.       Caption         =   "&File"
  118.       Begin VB.Menu mnuFileNew 
  119.          Caption         =   "&New"
  120.          Shortcut        =   ^N
  121.       End
  122.       Begin VB.Menu mnuFileOpen 
  123.          Caption         =   "&Open..."
  124.          Shortcut        =   ^O
  125.       End
  126.       Begin VB.Menu mnuFileClose 
  127.          Caption         =   "&Close"
  128.       End
  129.       Begin VB.Menu mnuFileBar0 
  130.          Caption         =   "-"
  131.       End
  132.       Begin VB.Menu mnuFileSave 
  133.          Caption         =   "&Save"
  134.       End
  135.       Begin VB.Menu mnuFileSaveAs 
  136.          Caption         =   "Save &As..."
  137.       End
  138.       Begin VB.Menu mnuFileSaveAll 
  139.          Caption         =   "Save A&ll"
  140.       End
  141.       Begin VB.Menu mnuFileBar1 
  142.          Caption         =   "-"
  143.       End
  144.       Begin VB.Menu mnuFileProperties 
  145.          Caption         =   "Propert&ies"
  146.       End
  147.       Begin VB.Menu mnuFileBar2 
  148.          Caption         =   "-"
  149.       End
  150.       Begin VB.Menu mnuFilePageSetup 
  151.          Caption         =   "Page Set&up..."
  152.       End
  153.       Begin VB.Menu mnuFilePrintPreview 
  154.          Caption         =   "Print Pre&view"
  155.       End
  156.       Begin VB.Menu mnuFilePrint 
  157.          Caption         =   "&Print..."
  158.       End
  159.       Begin VB.Menu mnuFileBar3 
  160.          Caption         =   "-"
  161.       End
  162.       Begin VB.Menu mnuFileSend 
  163.          Caption         =   "Sen&d..."
  164.       End
  165.       Begin VB.Menu mnuFileBar4 
  166.          Caption         =   "-"
  167.       End
  168.       Begin VB.Menu mnuFileMRU 
  169.          Caption         =   ""
  170.          Index           =   1
  171.          Visible         =   0   'False
  172.       End
  173.       Begin VB.Menu mnuFileMRU 
  174.          Caption         =   ""
  175.          Index           =   2
  176.          Visible         =   0   'False
  177.       End
  178.       Begin VB.Menu mnuFileMRU 
  179.          Caption         =   ""
  180.          Index           =   3
  181.          Visible         =   0   'False
  182.       End
  183.       Begin VB.Menu mnuFileBar5 
  184.          Caption         =   "-"
  185.          Visible         =   0   'False
  186.       End
  187.       Begin VB.Menu mnuFileExit 
  188.          Caption         =   "E&xit"
  189.       End
  190.    End
  191.    Begin VB.Menu mnuEdit 
  192.       Caption         =   "&Edit"
  193.       Begin VB.Menu mnuEditUndo 
  194.          Caption         =   "&Undo"
  195.       End
  196.       Begin VB.Menu mnuEditBar0 
  197.          Caption         =   "-"
  198.       End
  199.       Begin VB.Menu mnuEditCut 
  200.          Caption         =   "Cu&t"
  201.          Shortcut        =   ^X
  202.       End
  203.       Begin VB.Menu mnuEditCopy 
  204.          Caption         =   "&Copy"
  205.          Shortcut        =   ^C
  206.       End
  207.       Begin VB.Menu mnuEditPaste 
  208.          Caption         =   "&Paste"
  209.          Shortcut        =   ^V
  210.       End
  211.       Begin VB.Menu mnuEditPasteSpecial 
  212.          Caption         =   "Paste &Special..."
  213.       End
  214.    End
  215.    Begin VB.Menu mnuView 
  216.       Caption         =   "&View"
  217.       Begin VB.Menu mnuViewToolbar 
  218.          Caption         =   "&Toolbar"
  219.          Checked         =   -1  'True
  220.       End
  221.       Begin VB.Menu mnuViewStatusBar 
  222.          Caption         =   "Status &Bar"
  223.          Checked         =   -1  'True
  224.       End
  225.       Begin VB.Menu mnuViewBar0 
  226.          Caption         =   "-"
  227.       End
  228.       Begin VB.Menu m